Top 10k strings from MicroHobby Semanal - Issue 069-072 (1986)(Hobby Press)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
7 ?????? .......... 000000 5 A2,B2;" ": 4 ;x;":";a(nt,x);" ": 4 ;" PARE LA CINTA ": 4 3 A1,B1;" ": 2 z(nn+uv,ni-1 2 z(ni,dim,2 2 z(dim,dim,2 2 La batalla cosmica 2 ;" PULSA UNA TECLA ": 2 ,((a(nt,52 2 *a(nt,e)/a(nt,51 2 )=(xx*xx+yy*yy)^.5 2 )+z(ni,ni-1 2 )+z(ni,dim,1 2 )+a(nt,z): 2 (yy/(xx+(xx=0 2 (NPROG/DOS) 2 "22",CERO;B$: 1 z=a(ntab,53 1 z(nn+uv,nf,2 1 z(nn+uv,nf,1 1 z(nn+uv,dim,2 1 z(nn+uv,dim,1 1 z(j,k,l)=z(i,k,l): 1 z(i,k,l)=x(l): 1 yy=z(k,l,1 1 yy=om*r(h,5 1 yy=-sgn*m(i,5 1 y2=x2+incy: 1 y(m(j,sub)*(p=1 1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 1 xx=z(k,l,1 1 xx=-sgn*m(i,5 1 x2=x1+incx: 1 x1=x12*(izq 1 x+zz,col;x;":";a(nt,x);" ": 1 x(m(j,sub)*(p=0 1 x(l)=z(j,k,l): 1 vista=(q$="p")+2 1 vista=(dir 1 uves=uves+1 1 rayy=ray*incy/fin 1 rayy*rayy): 1 rayy*rayy)*(pyf>- 1 rayx=ray*incx/fin 1 rayx*rayx),rayy*(pyf<175 1 rayx*rayx)*(pxf>- 1 rayx*(pxf<255 1 ray=(ray+4 1 r$=r$+"0": 1 pyf=(py+(i-1 1 pxf=(px+(i-1 1 ory=x(sub2)/2 1 orx=x(sub1)/2 1 o=a(nt,j): 1 nudos=nn-1 1 ntab=ntab+1 1 miy=-indy/escy 1 mix=-indx/escx 1 micro 1 marte 1 lpx=lpx*qwe: 1 lm=lm+(x(3 1 lm=lm+(x(2 1 izq=(i$="i") 1 indy=-escy*ory+opy: 1 indx=-escx*orx+opx: 1 indi=nrs+1 1 indi=indi+1 1 incx),(incy),ang: 1 filas=nrs: 1 filas=filas+1 1 escy=lpy/lry: 1 escx=lpx/lrx: 1 es=x1+x2+y1*y2: 1 dire=50000 1 dir=dire+10 1 dir,sub1)) 1 dim=uves+nn: 1 cara 1 c$="RECTAS": 1 c$="ARCOS": 1 a(ntab,z)>a(ntab,51 1 a(ntab,z)=0 1 a(nt,x)>a(nt,51 1 YO .......... 000010 1 VIDAS: PUNTOS FUEGO: 1 UNO;"PONGA EN MARCHA LA CINTA"; 1 TZX por Manuel Gomez Amate 1 SPACE-UNO,X1 1 SPACE-UNO,CERO: 1 SPACE,LINEA: 1 SPACE,CERO: 1 PRESENTACION Y RESOLUCION EN PANTALLA DE CIRCUITOS ELECTRICOS 1 PABLO .......... 000984 1 Marte G 1 JOSE .......... 004012 1 J;" ";m(j,k) 1 INTRODUCE TU NOMBRE 1 INICIALIZACION 1 I2+(B2>B1) 1 I2+(B2<B1) 1 I2+(A2>A1) 1 I2+(A2<A1) 1 I,CERO;,,: 1 Hobby Press 1 Futbol K 1 Estadist 1 Dibujo 1 DOS=UNO+UNO 1 Circuitos 1 Castellano 1 Cargador U 1 CINTA 18 CARA B 1 CERO;" "; 1 CARLOS .......... 001342 1 C$="-HAS JUGADO BIEN PERO NO HAS GANADO,ELIGE OPCION: -UNA PROROGA (TECLA-P) -EMPEZAR DE NUEVO (TECLA-E) -TERMINAR EL JUEGO (TECLA-T)" 1 C$=" Por favor, elija un programa " 1 B$="-LO SIENTO PERO HE GANADO, QUIERES INTENTERLO DE NUEVO (S/N)?" 1 B$=" " 1 A1,B1;" "; 1 A$=" -PERFECTO ME HAS GANADO,LO INTENTAS OTRA VEZ (S/N)? 1 ="L")-(378 1 ;x;":";a(nt,x);" ": 1 ;a$();" ";b$ 1 ;"Valor maximo:";a(nt,51 1 ;"Valor maximo incorrecto": 1 ;"VAMOS A INTRODUCIR LAS RAMAS"'"(Pulsa una tecla)": 1 ;"Tabla ";nt;" :";a$(nt): 1 ;"PULSE UNA TECLA PARA EMPEZAR" 1 ;"PULSE CUALQUIER TECLA." 1 ;"POTENCIAL"; 1 ;"Numero de datos:";a(nt,53 1 ;"Nudos no alineados": 1 ;"No hay sitio"'"Introduce de nuevo los nudos": 1 ;"Mete la linea otra vez": 1 ;"Media (X)="; 1 ;"MICRO HOOBY" 1 ;"CALCULANDO" 1 ;":";a$(z-5 1 ;"8-Borrar tablas de datos" 1 ;"7-SAVE Programa + Tablas" 1 ;"6-SAVE Tablas de datos" 1 ;"5-LOAD Tablas de datos" 1 ;"4-Listar tablas": 1 ;"4-Comprobacion y retorno": 1 ;"3-Modificar algun dato"; 1 ;"3-Graficos" 1 ;"2-Modificar tabla " 1 ;"2-Cambiar numero de datos"; 1 ;"1-Modificar valor maximo"; 1 ;"1-Crear tabla de datos" 1 ;"-Q........SUBIR"; 1 ;"-PROFESIONAL:1"; 1 ;"-PRINCIPIANTE:3"; 1 ;"-P......DERECHA"; 1 ;"-O....IZQUIERDA"; 1 ;"-MEDIO:2"; 1 ;"-LAS TECLAS DE CONTROL SON:"; 1 ;"-ELIJA NIVEL DE DIFICULTAD" 1 ;"-A........BAJAR" 1 ;"(voltios)"; 1 ;"(grados)" 1 ;" c CIRCUITO r RESULTADOS" 1 ;" ESTADISTICA " 1 ;" " 1 3.- CURSORES 1 2.- KEMPSTON 1 1.- TECLADO 1 -x12)*(izq=0 1 -indy)/escy: 1 -indx)/escx: 1 --------------- 1 ,D.L.: M-36598-84 1 +j,i)=r(h,2 1 +(x1*y2-y1*x2): 1 +(iy-lon)/2 1 +(ix-lon)/2 1 *** CINTA-MICROHOBBY *** 1 *(z(i,dim,1 1 *(q$="a")+3 1 )=z(i,dim,2 1 )=z(i,dim,1 1 )=a(ntab,52 1 )=(y*escy+indy)*(y<may)*(y>miy)+175 1 )=(x*escx+indx)*(x<max)*(x>mix)+255 1 )-lm)*(x(3 1 )-lm)*(x(2 1 ),ypl+(i-1 1 ),sub2))-py 1 ),sub1))-px 1 ),"hasta ";r(k,2 1 ),"VISTA L.",2 1 ),"ALZADO",1 1 )+a(ntab,z) 1 )*o/a(nt,52 1 )*(z(i,dim,1 1 ))/(om*r(h,6 1 ))+(r(nr,6 1 )'"PROFUNDIDAD = ";x(2 1 )'"ANCHURA = ";x(1 1 (z(i,dim,2 1 (z(i,dim,1 1 (x2*x2+y2*y2)+1e-3 1 (x1*x1+y1*y1)* 1 (nx*e)-nx+143 1 (nx*e)+143 1 (incx*incx+incy*incy): 1 (c$);" DE ";(A$);" "; 1 (a$);"? ";r(k,j) 1 (VALOR)<"A" 1 "p,a,v,c,e ="; 1 "numero de ramas: ";nrs: 1 "nudo origen ";r(k,1 1 "graf estad" 1 "fase de la tension ";r(k,9 1 "fase de la intensidad ";r(k,10 1 "Valor maximo :";a(ntab,51 1 "Valor del dato ";(z);":";a(nt,z) 1 "Valor Maximo:";a(nt,51 1 "Valor Maximo ? ";a(ntab,51 1 "Tabla a modificar ?:";nt: 1 "Tabla ";ntab;":"; 1 "Tab ";nt;":";a$(nt) 1 "RESISTENCIA","INDUCTANCIA","CONDENSADOR","FUENTE DE TENSION","FUENTE DE INTENSIDAD" 1 "PLANTA",1 1 "Numero de tablas definidas ?";nt: 1 "Numero de tabla ? ";nt: 1 "Numero de datos ?:";a(nt,53 1 "Numero de datos :";a(ntab,53 1 "Numero de Datos ? ";a(ntab,53 1 "Numero Datos:";a(nt,53 1 "Nuevo valor maximo ";a(nt,51 1 "Nuevo valor del dato ";(d);":";a(nt,d) 1 "Nombre de la tabla ?:";a$(ntab) 1 "MicroHobby Semanal numeros 69 a 72 1 "LA VISTA L. ES ..(i/d) ? ",i$: 1 "Introduce la frecuencia ";om 1 "Escala de 1 a 8 ";qwe 1 "Dato a modificar ?:";d 1 "Dato Numero ";z;":"; 1 "D-Futbol","E-Estadist" 1 "Cuantos nudos vas a introducir ?";n: 1 "COTAS EN LA ";(a$)'M(J,k): 1 "ANCHURA","PROFUNDIDAD","ALTURA" 1 "ALTURA = ";x(3 1 "A-Dibujo","B-Circuitos","C-Marte" 1 "64"+NPROG) 1 "5";"cara: "; 1 "5";"Programa: "; 1 "5";"Programa inexistente": 1 "5";"'R' Vuelve al menu" 1 "5";"'L' Carga el programa"; 1 "32"-I;C$( 1 "22",CERO;C$(I 1 "22",CERO;B$ 1 "22",CERO; 1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1 !!!!!!!!!!!!!!!!!! 1 ANTONI FREIXANET 1985" 1 1985 Pablo Ariza software ltd. 1 Han colaborado Carlos y Jose 1